inherited frmConsulta_Entidades: TfrmConsulta_Entidades
  Left = 167
  Top = 139
  Caption = 'Consulta de Entidades'
  ClientHeight = 557
  ClientWidth = 764
  OldCreateOrder = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  inherited GB: TGroupBox
    Width = 764
    Height = 121
    object l_nome: TLabel
      Left = 50
      Top = 96
      Width = 32
      Height = 14
      Caption = 'Nome'
    end
    object Label2: TLabel
      Left = 11
      Top = 63
      Width = 71
      Height = 14
      Caption = 'Consulta por'
    end
    object l_codigo: TLabel
      Left = 43
      Top = 96
      Width = 39
      Height = 14
      Caption = 'C'#243'digo'
      Visible = False
    end
    object l_cnpj: TLabel
      Left = 54
      Top = 96
      Width = 28
      Height = 14
      Caption = 'CNPJ'
      Visible = False
    end
    object Label11: TLabel
      Left = 58
      Top = 22
      Width = 24
      Height = 14
      Caption = 'Tipo'
    end
    object ed_nome: TEdit
      Left = 89
      Top = 94
      Width = 449
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 40
      TabOrder = 2
      OnKeyDown = ed_nomeKeyDown
    end
    object ed_codigo: TEdit
      Left = 89
      Top = 94
      Width = 41
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 5
      TabOrder = 3
      Visible = False
      OnKeyDown = ed_codigoKeyDown
    end
    object ed_cnpj: TEdit
      Left = 89
      Top = 94
      Width = 91
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 14
      TabOrder = 4
      Visible = False
      OnKeyDown = ed_cnpjKeyDown
      OnKeyPress = ed_cnpjKeyPress
    end
    object p_ordem: TRadioGroup
      Left = 89
      Top = 51
      Width = 447
      Height = 34
      Columns = 4
      ItemIndex = 0
      Items.Strings = (
        'Descri'#231#227'o'
        'C'#243'digo'
        'CNPJ/CPF'
        'Fantasia')
      TabOrder = 1
      OnClick = p_ordemClick
    end
    object edTipo: TRadioGroup
      Left = 89
      Top = 13
      Width = 312
      Height = 34
      Columns = 3
      ItemIndex = 2
      Items.Strings = (
        'Cliente '
        'Fornecedor '
        'Ambos')
      TabOrder = 0
    end
  end
  inherited Panel1: TPanel
    Top = 509
    Width = 764
    inherited BtnFechar: TBitBtn
      Left = 323
    end
    inherited BtnFechar1: TFlatButton
      Left = 309
    end
  end
  inherited Panel2: TPanel
    Top = 121
    Width = 764
    Height = 388
    object DBCtrlGrid1: TDBCtrlGrid
      Left = 1
      Top = 1
      Width = 762
      Height = 386
      Align = alClient
      AllowDelete = False
      Color = clWhite
      DataSource = DataSource1
      PanelHeight = 128
      PanelWidth = 746
      ParentColor = False
      TabOrder = 0
      OnDblClick = DBCtrlGrid1DblClick
      object Label1: TLabel
        Left = 18
        Top = 5
        Width = 45
        Height = 16
        Alignment = taRightJustify
        Caption = 'C'#243'digo'
        FocusControl = dbEntCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 29
        Top = 21
        Width = 34
        Height = 16
        Alignment = taRightJustify
        Caption = 'CNPJ'
        FocusControl = dbCnpj
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 26
        Top = 55
        Width = 37
        Height = 16
        Alignment = taRightJustify
        Caption = 'Nome'
        FocusControl = dbRazao
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 402
        Top = 55
        Width = 95
        Height = 16
        Alignment = taRightJustify
        Caption = 'Nome Fantasia'
        FocusControl = dbFantasia
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 405
        Top = 21
        Width = 92
        Height = 16
        Alignment = taRightJustify
        Caption = 'Inscr. Estadual'
        FocusControl = dbInscr
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label7: TLabel
        Left = 3
        Top = 72
        Width = 60
        Height = 16
        Alignment = taRightJustify
        Caption = 'Endere'#231'o'
        FocusControl = dbEndereco
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label5: TLabel
        Left = 458
        Top = 72
        Width = 39
        Height = 16
        Alignment = taRightJustify
        Caption = 'Bairro'
        FocusControl = dbBairro
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 37
        Top = 89
        Width = 26
        Height = 16
        Alignment = taRightJustify
        Caption = 'CEP'
        FocusControl = dbCEP
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label10: TLabel
        Left = 426
        Top = 89
        Width = 71
        Height = 16
        Alignment = taRightJustify
        Caption = 'DDD - Fone'
        FocusControl = dbFone
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label13: TLabel
        Left = 18
        Top = 106
        Width = 45
        Height = 16
        Alignment = taRightJustify
        Caption = 'Cidade'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label14: TLabel
        Left = 529
        Top = 80
        Width = 4
        Height = 14
        Caption = '-'
      end
      object Label12: TLabel
        Left = 37
        Top = 38
        Width = 26
        Height = 16
        Alignment = taRightJustify
        Caption = 'CPF'
        FocusControl = dbCnpj
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object dbEntCodigo: TDBEdit
        Left = 67
        Top = 5
        Width = 84
        Height = 17
        TabStop = False
        BevelInner = bvNone
        BevelOuter = bvNone
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'ENT_CODIGO'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object dbCnpj: TDBEdit
        Left = 67
        Top = 21
        Width = 177
        Height = 17
        TabStop = False
        BevelInner = bvNone
        BevelOuter = bvNone
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'ENT_CNPJ'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
      object dbRazao: TDBEdit
        Left = 67
        Top = 55
        Width = 335
        Height = 17
        TabStop = False
        AutoSize = False
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'ENT_NOME'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
      end
      object dbFantasia: TDBEdit
        Left = 502
        Top = 55
        Width = 241
        Height = 17
        TabStop = False
        AutoSize = False
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'ENT_FANTASIA'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 3
      end
      object dbInscr: TDBEdit
        Left = 502
        Top = 21
        Width = 161
        Height = 17
        TabStop = False
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'ENT_INSCEST'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 4
      end
      object dbEndereco: TDBEdit
        Left = 67
        Top = 72
        Width = 386
        Height = 17
        TabStop = False
        AutoSize = False
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'END_ENDERECO'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 5
      end
      object dbBairro: TDBEdit
        Left = 502
        Top = 72
        Width = 241
        Height = 17
        TabStop = False
        AutoSize = False
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'END_BAIRRO'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 6
      end
      object dbCEP: TDBEdit
        Left = 67
        Top = 89
        Width = 121
        Height = 17
        TabStop = False
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'END_CEP'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 7
      end
      object dbFone: TDBEdit
        Left = 544
        Top = 89
        Width = 173
        Height = 17
        TabStop = False
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'Telefone'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 8
      end
      object dbCidade: TDBEdit
        Left = 67
        Top = 106
        Width = 364
        Height = 17
        TabStop = False
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'CID_NOME'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 9
      end
      object dbUF: TDBEdit
        Left = 433
        Top = 106
        Width = 185
        Height = 17
        TabStop = False
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'UF'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 10
      end
      object DBEDDD: TDBEdit
        Left = 502
        Top = 89
        Width = 18
        Height = 17
        TabStop = False
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'DDD'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 11
      end
      object dbCPF: TDBEdit
        Left = 67
        Top = 38
        Width = 177
        Height = 17
        TabStop = False
        BevelInner = bvNone
        BevelOuter = bvNone
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'ENT_CPF'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 12
      end
    end
  end
  object qr: TQuery
    SQL.Strings = (
      'select * from Entidade')
    Left = 500
    Top = 254
    object qrENT_CODIGO: TStringField
      FieldName = 'ENT_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_CODIGO'
      Size = 5
    end
    object qrENT_CNPJ: TStringField
      FieldName = 'ENT_CNPJ'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_CNPJ'
      EditMask = '99.999.999/9999-99  ;0;_'
      Size = 18
    end
    object qrENT_CPF: TStringField
      FieldName = 'ENT_CPF'
      EditMask = '999.999.999-99  ;0;_'
      Size = 14
    end
    object qrENT_NOME: TStringField
      FieldName = 'ENT_NOME'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_NOME'
      Size = 40
    end
    object qrCID_NOME: TStringField
      FieldKind = fkLookup
      FieldName = 'CID_NOME'
      LookupDataSet = qrEnd
      LookupKeyFields = 'ENT_CODIGO'
      LookupResultField = 'Cidade'
      KeyFields = 'ENT_CODIGO'
      Lookup = True
    end
    object qrENT_FANTASIA: TStringField
      FieldName = 'ENT_FANTASIA'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_FANTASIA'
      Size = 25
    end
    object qrTelefone: TStringField
      FieldKind = fkLookup
      FieldName = 'Telefone'
      LookupDataSet = qrEnd
      LookupKeyFields = 'ENT_CODIGO'
      LookupResultField = 'END_FONE'
      KeyFields = 'ENT_CODIGO'
      Lookup = True
    end
    object qrDDD: TStringField
      FieldKind = fkLookup
      FieldName = 'DDD'
      LookupDataSet = qrEnd
      LookupKeyFields = 'ENT_CODIGO'
      LookupResultField = 'End_DDD'
      KeyFields = 'ENT_CODIGO'
      Lookup = True
    end
    object qrENT_INSCEST: TStringField
      FieldName = 'ENT_INSCEST'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_INSCEST'
      Size = 21
    end
    object qrEND_FONE: TStringField
      FieldKind = fkLookup
      FieldName = 'END_FONE'
      LookupDataSet = qrEnd
      LookupKeyFields = 'ENT_CODIGO'
      LookupResultField = 'END_FONE'
      KeyFields = 'ENT_CODIGO'
      Size = 25
      Lookup = True
    end
    object qrEND_ENDERECO: TStringField
      FieldKind = fkLookup
      FieldName = 'END_ENDERECO'
      LookupDataSet = qrEnd
      LookupKeyFields = 'ENT_CODIGO'
      LookupResultField = 'END_ENDERECO'
      KeyFields = 'ENT_CODIGO'
      Size = 50
      Lookup = True
    end
    object qrEND_BAIRRO: TStringField
      FieldKind = fkLookup
      FieldName = 'END_BAIRRO'
      LookupDataSet = qrEnd
      LookupKeyFields = 'ENT_CODIGO'
      LookupResultField = 'END_BAIRRO'
      KeyFields = 'ENT_CODIGO'
      Size = 40
      Lookup = True
    end
    object qrEND_CEP: TStringField
      FieldKind = fkLookup
      FieldName = 'END_CEP'
      LookupDataSet = qrEnd
      LookupKeyFields = 'ENT_CODIGO'
      LookupResultField = 'END_CEP'
      KeyFields = 'ENT_CODIGO'
      Lookup = True
    end
    object qrUF: TStringField
      FieldKind = fkLookup
      FieldName = 'UF'
      LookupDataSet = qrEnd
      LookupKeyFields = 'ENT_CODIGO'
      LookupResultField = 'EST_SIGLA'
      KeyFields = 'ENT_CODIGO'
      Lookup = True
    end
  end
  object DataSource1: TDataSource
    DataSet = qr
    Left = 472
    Top = 254
  end
  object qryEndereco: TQuery
    DatabaseName = 'industrial'
    DataSource = DataSource1
    SQL.Strings = (
      'select e.*, TIPEND_DESCRICAO'
      'from Endereco E, TIPOENDERECO t'
      'where Ent_Codigo =:Ent_Codigo'
      'and'
      'e.TIPEND_CODIGO = t.TIPEND_CODIGO'
      'and e.TIPEND_CODIGO = '#39'1'#39)
    Left = 556
    Top = 254
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Ent_Codigo'
        ParamType = ptUnknown
      end>
    object qryEnderecoTIPEND_DESCRICAO: TStringField
      FieldName = 'TIPEND_DESCRICAO'
      Origin = 'INDUSTRIAL.TIPOENDERECO.TIPEND_DESCRICAO'
      Size = 30
    end
    object qryEnderecoTIPEND_CODIGO: TStringField
      FieldName = 'TIPEND_CODIGO'
      Origin = 'INDUSTRIAL.ENDERECO.TIPEND_CODIGO'
      Size = 2
    end
    object qryEnderecoEND_CODIGO: TStringField
      FieldName = 'END_CODIGO'
      Origin = 'INDUSTRIAL.ENDERECO.END_CODIGO'
      Size = 2
    end
    object qryEnderecoCID_CODIGO: TStringField
      FieldName = 'CID_CODIGO'
      Origin = 'INDUSTRIAL.ENDERECO.CID_CODIGO'
      Size = 4
    end
    object qryEnderecoEND_ENDERECO: TStringField
      FieldName = 'END_ENDERECO'
      Origin = 'INDUSTRIAL.ENDERECO.END_ENDERECO'
      Size = 40
    end
    object qryEnderecoEND_BAIRRO: TStringField
      FieldName = 'END_BAIRRO'
      Origin = 'INDUSTRIAL.ENDERECO.END_BAIRRO'
      Size = 25
    end
    object qryEnderecoEND_CEP: TStringField
      FieldName = 'END_CEP'
      Origin = 'INDUSTRIAL.ENDERECO.END_CEP'
      Size = 9
    end
    object qryEnderecoEND_FONE: TStringField
      FieldName = 'END_FONE'
      Origin = 'INDUSTRIAL.ENDERECO.END_FONE'
      Size = 13
    end
    object qryEnderecoEND_FAX: TStringField
      FieldName = 'END_FAX'
      Origin = 'INDUSTRIAL.ENDERECO.END_FAX'
      Size = 13
    end
    object qryEnderecoCidade: TStringField
      FieldKind = fkLookup
      FieldName = 'Cidade'
      LookupDataSet = qrCid
      LookupKeyFields = 'CID_CODIGO'
      LookupResultField = 'CID_NOME'
      KeyFields = 'CID_CODIGO'
      Size = 40
      Lookup = True
    end
    object qryEnderecoUF: TStringField
      FieldKind = fkLookup
      FieldName = 'UF'
      LookupDataSet = qrCid
      LookupKeyFields = 'CID_CODIGO'
      LookupResultField = 'EST_SIGLA'
      KeyFields = 'CID_CODIGO'
      Lookup = True
    end
  end
  object qrEnd: TQuery
    SQL.Strings = (
      'select * from Endereco')
    Left = 612
    Top = 254
    object qrEndENT_CODIGO: TStringField
      FieldName = 'ENT_CODIGO'
      Origin = 'INDUSTRIAL.ENDERECO.ENT_CODIGO'
      Size = 5
    end
    object qrEndTIPEND_CODIGO: TStringField
      FieldName = 'TIPEND_CODIGO'
      Origin = 'INDUSTRIAL.ENDERECO.TIPEND_CODIGO'
      Size = 2
    end
    object qrEndEND_CODIGO: TStringField
      FieldName = 'END_CODIGO'
      Origin = 'INDUSTRIAL.ENDERECO.END_CODIGO'
      Size = 2
    end
    object qrEndCID_CODIGO: TStringField
      FieldName = 'CID_CODIGO'
      Origin = 'INDUSTRIAL.ENDERECO.CID_CODIGO'
      Size = 4
    end
    object qrEndEND_ENDERECO: TStringField
      FieldName = 'END_ENDERECO'
      Origin = 'INDUSTRIAL.ENDERECO.END_ENDERECO'
      Size = 40
    end
    object qrEndEND_BAIRRO: TStringField
      FieldName = 'END_BAIRRO'
      Origin = 'INDUSTRIAL.ENDERECO.END_BAIRRO'
      Size = 25
    end
    object qrEndEND_CEP: TStringField
      FieldName = 'END_CEP'
      Origin = 'INDUSTRIAL.ENDERECO.END_CEP'
      Size = 9
    end
    object qrEndEND_FONE: TStringField
      FieldName = 'END_FONE'
      Origin = 'INDUSTRIAL.ENDERECO.END_FONE'
      Size = 13
    end
    object qrEndEND_FAX: TStringField
      FieldName = 'END_FAX'
      Origin = 'INDUSTRIAL.ENDERECO.END_FAX'
      Size = 13
    end
    object qrEndCidade: TStringField
      FieldKind = fkLookup
      FieldName = 'Cidade'
      LookupDataSet = qrCid
      LookupKeyFields = 'CID_CODIGO'
      LookupResultField = 'CID_NOME'
      KeyFields = 'CID_CODIGO'
      Lookup = True
    end
    object qrEndEnd_DDD: TStringField
      FieldKind = fkLookup
      FieldName = 'End_DDD'
      LookupDataSet = qrCid
      LookupKeyFields = 'CID_CODIGO'
      LookupResultField = 'CID_DDD'
      KeyFields = 'CID_CODIGO'
      Lookup = True
    end
    object qrEndEST_SIGLA: TStringField
      FieldKind = fkLookup
      FieldName = 'EST_SIGLA'
      LookupDataSet = qrCid
      LookupKeyFields = 'CID_CODIGO'
      LookupResultField = 'EST_SIGLA'
      KeyFields = 'CID_CODIGO'
      Lookup = True
    end
  end
  object qrCid: TQuery
    SQL.Strings = (
      'select * from Cidade'
      'order by Cid_Nome')
    Left = 640
    Top = 254
    object qrCidCID_CODIGO: TStringField
      FieldName = 'CID_CODIGO'
      Origin = 'INDUSTRIAL.CIDADE.CID_CODIGO'
      Size = 4
    end
    object qrCidPAIS_CODIGO: TStringField
      FieldName = 'PAIS_CODIGO'
      Origin = 'INDUSTRIAL.CIDADE.PAIS_CODIGO'
      Size = 2
    end
    object qrCidEST_SIGLA: TStringField
      FieldName = 'EST_SIGLA'
      Origin = 'INDUSTRIAL.CIDADE.EST_SIGLA'
      Size = 2
    end
    object qrCidCID_NOME: TStringField
      FieldName = 'CID_NOME'
      Origin = 'INDUSTRIAL.CIDADE.CID_NOME'
      Size = 25
    end
    object qrCidCID_DDD: TStringField
      FieldName = 'CID_DDD'
      Origin = 'INDUSTRIAL.CIDADE.CID_DDD'
      Size = 4
    end
  end
  object dsCid: TDataSource
    DataSet = qrCid
    Left = 584
    Top = 254
  end
  object dsEndereco: TDataSource
    DataSet = qryEndereco
    Left = 528
    Top = 254
  end
end
